home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 1.iso / desktop / att32all.zip / ATTABOUT.FRM (.txt) < prev    next >
Visual Basic Form  |  1994-11-16  |  5KB  |  104 lines
  1. About
  2. About...
  3. wwwwwwwwwwwwww
  4. Xgwwwwwwwww
  5. Form3%
  6. Text1
  7. Text1
  8. MS Sans Serif
  9. Command1
  10. Label1
  11. Password: "ATT"
  12. MS Sans Serif
  13. Label1
  14. *Art, layout && original program design by:
  15. MS Sans Serif
  16. Label1
  17. 76516,1020 or xplex@aol.com
  18. MS Sans Serif
  19. Label1
  20. Carole Rogers
  21. MS Sans Serif
  22. Label1
  23. Log on as user: "All the Time"
  24. MS Sans Serif
  25. Label1
  26. !CalamityVille BBS: 1-610-515-0740
  27. MS Sans Serif
  28. Label1
  29. !available free on Brad Friedman's
  30. MS Sans Serif
  31. Label1
  32. -The current version of All the Time is always
  33. MS Sans Serif
  34. Label1
  35. Pardon us, but...
  36. MS Sans Serif
  37. Label1
  38. 70741,422 or neslon@panix.com
  39. MS Sans Serif
  40. Label1
  41. Wilson Smith
  42. MS Sans Serif
  43. Label1
  44. Questions, comments, bugs to:
  45. MS Sans Serif
  46. Label1
  47.     Enjoy it!
  48. MS Sans Serif
  49. Label1
  50. No warranties, no liabilities
  51. MS Sans Serif
  52. Label1
  53. Free, public domain, etc.
  54. MS Sans Serif
  55. Label1
  56. All the Time v3.21
  57. Command1_Click
  58. Form3
  59. Form_Click
  60. @    Form_Load6
  61. AttAbout
  62. AttSettings
  63. WidthL
  64. Settings
  65. Height
  66. Visible
  67. Screen(
  68. forms>
  69. count
  70. gSettingsVisible
  71. gNumColors
  72. Text1
  73. cCutoffColors
  74. gPixelDepth
  75. cCutoffDepth
  76. Text1_Change
  77. Label1
  78. Caption
  79. About
  80. 11/16  1.0 - 1.01 -> non-tiling.  consistent hourglassingw
  81. 11/17 1.01 - 1.02 -> stopped doing a CLS for tiled preview
  82.  (bug introduced in 1.01)d
  83. 11/17 1.02 - 1.03 -> stopped doing a CLS at all.  PatBlt for non-tiled background
  84. 11/24 1.1
  85. lots of versions, one to CIS, one to JB and LB, 
  86.  one to SJH and MS
  87. 1/18  1.15
  88.  -> sent 1.11d to Brad Friedman 
  89.  -> went through C's list of things, mostly minor.
  90. Command1_Click
  91. Form_Load
  92. 10/01/1993
  93. Starting 10/1/93, new versions of ATT will be
  94. If gNumColors > cCutoffColors Then
  95.    Text1.Text = "Windows reports that your display supports " + Format$(gNumColors) + " colors. We've been looking for verification from anyone that our program actually works on a display like that. Would you do us the favor of dropping us a note alerting us to the fact that our program is not, in fact, crippled horribly by an inability to display " + Format$(gNumColors) + " colors? All you have to do is mention that you saw this message. We'd be very, very grateful! Additional info about your system would also be appreciated." + Chr$(13) + Chr$(10) + "Thanks, " + Chr$(13) + Chr$(10) + "Wilson & Carole"
  96.    About.Height = Text1.Top + Text1.Height + 810
  97.    Label1(5).Visible = True 
  98.    If gPixelDepth > cCutoffDepth Thene
  99.    Text1.Text = "Windows reports that your display supports " + Format$(gPixelDepth) + "-bit color. We've been looking for verification from anyone that our program actually works on a display like that. Would you do us the favor of dropping us a note alerting us to the fact that our program is not, in fact, crippled horribly by an inability to display " + Format$(gPixelDepth) + "-bit color? All you have to do is mention that you saw this message. We'd be very, very grateful! Additional info about your system would also be appreciated." + Chr$(13) + Chr$(10) + "Thanks, " + Chr$(13) + Chr$(10) + "Wilson & Carole"
  100.    Label1(5).Visible = Truep
  101.    About.Height = Text1.Top + Text1.Height + 810
  102.    End IfH
  103. End If
  104.